﻿Imports MySql.Data.MySqlClient
Public Class dInformacion_Personal
    Private con As MySqlConnection
    Private comando As MySqlCommand
    Dim lector As MySqlDataReader
    Private lector2 As MySqlDataAdapter
    Private data As DataSet

    'llamar datos de la DB
    Public Function CargarMysql(ByVal Campo As String) As ArrayList
        Dim resultado As ArrayList
        resultado = New ArrayList
        con = Conexion.open()
        comando = New MySqlCommand("Select lugar_fecha_nacimiento, direccion_residencia, otras_direcciones, telefono, celular, profesion, cargo_actual, cargo_aspira, email, codigo_estado_civil from informacion_personal where codigo_estudio='" & Campo & "'", con)
        lector = comando.ExecuteReader
        If lector.Read() = True Then
            resultado.Add(lector.GetString(0))
            resultado.Add(lector.GetString(1))
            resultado.Add(lector.GetString(2))
            resultado.Add(lector.GetString(3))
            resultado.Add(lector.GetString(4))
            resultado.Add(lector.GetString(5))
            resultado.Add(lector.GetString(6))
            resultado.Add(lector.GetString(7))
            resultado.Add(lector.GetString(8))
            resultado.Add(lector.GetString(9))
        End If
        Conexion.Close(con)
        lector.Close()
        Return resultado
    End Function
    ' propiedades consultar ANAlistas
    Public Function ConsultarMysql(ByVal Campo As String) As DataSet
        Dim consultar As New dConsultar
        Return consultar.Consultar_General(Campo, "Informacion_Personal")

        'Dim Resultado As ArrayList
        'Resultado = New ArrayList
        'con = Conexion.open()
        'comando = New MySqlCommand("Select codigo_analista as Codigo, nombre_analista as Analista, Telefono, Direccion, Email from analistas where codigo_analista='" & Campo & "' or nombre_analista like '" & "%" & Campo & "%" & "' and estado_analista='A'", con)
        'lector2 = New MySqlDataAdapter(comando)
        'data = New DataSet
        'lector2.Fill(data)
        'Conexion.Close(con)
        'Return data
    End Function
    'guardar la informacion
    Public Sub GuardarMysql(ByVal Codigo As String, ByVal lugar_fecha_nacimiento As String, ByVal direccion_residencia As String, ByVal otras_direcciones As String, ByVal telefono As String, ByVal celular As String, ByVal profesion As String, ByVal cargo_actual As String, ByVal cargo_aspira As String, ByVal email As String, ByVal codigo_estado_civil As String)
        Dim Resultado As ArrayList
        Resultado = CargarMysql(Codigo)
        con = Conexion.open()
        If Resultado.Count <> 0 Then
            'realizamos la actualizacion
            comando = New MySqlCommand("UPDATE informacion_personal SET lugar_fecha_nacimiento='" & lugar_fecha_nacimiento & "', direccion_residencia='" & direccion_residencia & "', otras_direcciones='" & otras_direcciones & "', telefono='" & telefono & "', celular='" & celular & "', profesion='" & profesion & "', cargo_actual='" & cargo_actual & "', cargo_aspira='" & cargo_aspira & "', email='" & email & "', codigo_estado_civil='" & codigo_estado_civil & "' " _
                                       & "where codigo_estudio='" & Codigo & "'", con)
            comando.ExecuteNonQuery()
        Else
            'realizamos l insercion
            comando = New MySqlCommand("insert into informacion_personal(codigo_estudio, lugar_fecha_nacimiento, direccion_residencia, otras_direcciones, telefono, celular, profesion, cargo_actual, cargo_aspira, email, codigo_estado_civil) " _
                                       & "values('" & Codigo & "','" & lugar_fecha_nacimiento & "','" & direccion_residencia & "','" & otras_direcciones & "','" & telefono & "', '" & celular & "', '" & profesion & "','" & cargo_actual & "', '" & cargo_aspira & "', '" & email & "', '" & codigo_estado_civil & "')", con)
            comando.ExecuteNonQuery()
        End If
        Conexion.Close(con)
        'comando = New MySqlCommand("Inser  * from diagnosticos where codigo_diagnostico like '" & Campo & "%" & "'", con)
    End Sub
End Class
